home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
cd-sup
/
ider
/
routines
/
processflags.s
< prev
next >
Wrap
Text File
|
1998-05-24
|
646b
|
31 lines
MODE_ONE Equ 0
MODE_ALL Equ 1
MODE_TWO Equ 2
ProcessFlags: Clr.L _Mode ;clear all flag settings
Move.L _Flags(PC),A0 ;were any flags specified
Cmp.L #0,A0
Beq.S .ProcessDone
.ProcessLoop Move.B (A0)+,D0 ;get a flag
Beq.S .ProcessDone
Bsr.S ChangeCase
Cmp.B #'A',D0 ;is it ALL
Bne.S .notAll
Move.B #MODE_ALL,_Mode ;set the approprate bit
.notAll
Cmp.B #'T',D0 ;is it TWO
Bne.S .notTwo
Move.B #MODE_TWO,_Mode ;set the approprate bit
.notTwo
Cmp.B #'I',D0 ;is it INSENSITIVE
Seq _Insensitive ;set the approprate bit
Cmp.B #'Q',D0 ;is it QUOTE
Seq _Quote ;set the approprate bit
Bra.S .ProcessLoop
.ProcessDone Rts